home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / basic / ACE_Prgs.lha / shellutils / nocaps.b < prev   
Encoding:
Text File  |  1994-10-28  |  477 b   |  20 lines
  1. ' Program: nocaps.b
  2. ' Written by: Dan Oberlin
  3. '
  4. ' Takes multiple filenames as CLI arguments and renames the files to
  5. ' their lowercase equivalents.  Nice for easily renaming those IBM
  6. ' files you may download.
  7.  
  8. FOR i% = 1 TO ARGCOUNT
  9.     newname$ = ""
  10.     FOR j% = 1 TO LEN(ARG$(i%))
  11.     k% = ASC(MID$(ARG$(i%),j%,1))
  12.     IF k% >= &H41 AND k% <= &H5a THEN
  13.         newname$ = newname$+chr$(k%+&H20)
  14.     ELSE
  15.         newname$ = newname$+chr$(k%)
  16.     END IF
  17.     NEXT
  18.     SYSTEM "rename "+ARG$(i%)+" "+newname$
  19. NEXT
  20.